LOOK FOR R REPORT ON THIS ORERT NEW ADDITION FOR 
VOUR TRS-80. I RM USING THE RF-II AND WILL HAVE 
R REPORT IN THE JULV 79 ISSUE 
R. G. LLOVD, EDITOR 

FULLER ELECTRONICS, 7463 HOLLISTER SUITE 232 
GOLETR, CR 93817 - TOLL FREE <800> 63S-2O0 




fl 48 58/* 66/* 78/* 88/* 98/* 188/* 118/* 128/* 138/* 

148/* 158/2 158/* 168 168/* 488 438/* 

BC 38 98 118 418 

C 88 188 299 388 358 368/2 488 

DE 18 138/4 210/2 428 

HL 28 98/4 118/4 388/4 318/2 438 

I 8 518/2 

IV 518/3 528/2 

K 588 

H 568/2 598/2 

P 8 518/2 526/2 556/2 588 

Q 558/3 555/2 

X 96/2 116/2 138/2 386/2 316/2 356/3 366/3 418 428 

438/2 566 516/2 



1 'THANKS TO STEVE NACGREGOR FOR THE ELEGANT DIVISION ROUTINE 

2 'IN THE HflV NEWSLETTER. TO HELP FIGURE OUT WHAT'S GOING ON, 

3 'THIS BASIC PROGRAM SIMULATES THE ROUTINE/ SHOWING THE 

4 'REGISTER CONTENTS AT EACH STEP (SURE BEATS PAPER AND PENCIL!) 
8 DEFINTI-P 

18 INPUT-DIVIDEND (HIGH ORFER)";DE 

28 INPUT-DIVIDEND (LOW ORDER)"; HL 

38 INPUT-DIVISOR"; BC 

48 A»16 

45 CLS 

56 A*»"D8 ADD HL,HL":G0SUB486:G0SUB299 

66 A*»"EX DE,HL":G0SUB488:G0SUB3ie 

78 A*»"ADC HLHL":G0SUB488:GOSUB386 

88 A**"OR A":GOSUB480-C*8 

96 A** a SBC HL,BC":G0SUB48e:HL=HL-BC : X-HL : G0SUB358 : HL*X 

186 R*=" JR NC, Dl" : G0SUB486 : IFC*6THEN136 

118 A*-"ADD HL,BC iADD BACK" : G0SUB466 : HL»HL*BC : X»HL : G0SUB356 : HL»X 

126 R*»"JR D2":GOSUB466:G0TO14e 

138 A*>"D1 INC K":GOSUB408:D£-DE+1:X-OE:GOSUB358:D£-X 

148 A**"D2 EX DE/HL":G0SUB468:G0SUB3ie 

156 A*»"DEC AVGOSUB400A-A-1 

166 R*="JR NZ;D0":GOSUB408:IFA>8THEN58ELSE18 

299 O0 

366 HL«HL*2*C.X-HL:G0SUB356:HL«X: RETURN 

316 X-HL:HL-0£:DE«X: RETURN 

356 IFX>65535THENX-X-65536:C=1: RETURN 

366 IFX<6THENX-X*65536:C«1ELSEC*6 

378 RETURN 

466 PRINT66, "A»"; A, "C«";C 

418 PRINT0128, "BC=", : X«BC : G0SUB588 

428 PRINTt256, "DE«"; : X-DE : G0SUB588 

438 PRINT8384. "HL-"; : X-HL : G0SUB586 : F0RX=1T0588 : NEXT : PRINT0512, A*; CHR*<38) : RETURN 

566 PRINTX, 

518 I«X+65536*<X>32767):IV«VARPTR<I):P'^ > EEK(IV*l):a)SUB558:P^>EEK<IV):GOSUB550 

528 PRINT, :P*PEEK<IV+i):G0SUB588: PRINT" "; :P«PEEK<IV) G0SUB588: PRINT: RETURN 

558 Q«P/16:G0SUB555:0»P-0*16 

555 PRINTCHR*<Q+48-7*<Q>9)); : RETURN 

588 N*128:F0RK*lT08:IFFflNDMTHENPRINT"l";ELSEPRINT"8", 

598 H=M/2: NEXT RETURN 

595 : 

686 'FOR fl TAPE OF THIS, SEND COST OF TAPE AND POSTAGE (OR 

618 'A PROGRAM IN TRADE) 

628 'PHELPS GATES 

638 '6 CRESTWOOD TR. PK. - RT. 4 

648 'CHAPEL HILL, NC 27514 

656 '7/4/79 
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I MOULD LIKE TO THANK: 
C. W. EVANS, SUN CI TV, RZ 
JOE W POCKE, RIDGECREST, CA 
PHELPS GATES.. CHRPEL HILL; NC 
FOR THE PROGRAMS IN THIS ISSUE 
VOUR EDITOR: R. GORDON LLOVD 



FOR 



RLE 



LEVEL I I 16K TPS-30 COMPUTER 
MRNV TRPES CGBMES-ETC. > PLUS TRPE CRSE 
15 ISSUES TRS-80 USERS GROUP 
12 ISSUES BVTE MAGAZINE 
LEVEL I I MANUAL, LEVEL I MRNURL 
IN MEMORV INFORMATION SVSTEM 
PERSONAL FINANCE PACKAGE 
8 MONTS OLD. HARDLV USED 
ENCELLENT CONDITION ! ! ! 

LITTLE ONE ON THE WAV. NEED THE MONEV ! ! ! 
CASH OR MONEV ORDER ONLV- *110d 88-HHV WAIT^ 
CALL GARRV MORGEN - AFTER FIVE <404> 554-4956 
8 RM - 12 NOON C404> 554-3021 



ie 

28 

30 
40 ' 
58 
68 
70 
80 
85 
90 
'118 
110 
128 
130 
140 
150 
160 
170 
186 
190 
288 
218 
220 
230 
240 
250 
268 
278 



THERE'S A PECULIAR BUG IN THE RADIO SHACK EDITOR/ASSEMBLER: 
ACCORDING TO THE MANUAL <AND MY CPU AGREES!), THE 
INSTRUCTION 18 88 (HEX) MEANS A RELATIVE JUMP BACKWARD 
<7F IS THE LONGEST FORWARD JUMP) BUT TRY THIS ONE. 



ORG 
JR 

END 



7000H 

7082H 



SURPRISE! THE ASSEMBLER THINKS THAT 18 88 MS A JUHX 

'FORWARD! TO ADD TO THE CONFUSION, IT WILL ALSO ASSEMBLE 
"JR 6F82" (CORRECTLY) TO THE SAME INSTRUCTION. I HAVE 
'VERSION 1. 1: THIS MAV HAVE BEEN CORRECTED IN LATER RELEASES. 

'HERE'S A PUZZLE IN LEVEL II BASIC. ... THE FOLLOWING IS A 
'LEGAL PROGRAM <N0 RESERVED WORDS), BUT YOU MAV BE SURPRISED! 



OK— 1 

NO-1 

IF0K-N0THENPRINT--1-1" : 



'NO SPACES 



. . WHAT HAPPENED^ 
'HINT: WHAT DOES HEN EQUAL? 
?REMISA**MID*AL: DON'T USE "NO" AS A 'VARIABLE NAME 

'PHELPS GATES 

'6 CRESTWOOD TR. PK. - *RT 4 

'CHAPEL HILL NC 27514 



SAVE 10?;* iZ'i OP -i'PE jN ALL COMPUTERS. PERIPHERALS- ft SOFTWARE. 

NO TAXES ON OUT-OF-STATE SHIPMENTS 

WARRANTIES MIL I BE HONORED BV YtiUR LOCAL 'RADIO SHACK' (J) STORE. 

VERBATIM DISKETTES *3 58 EBCH 

HENRY'S ENGINEERING CO. 

P 0. BOX 629 

PRINCE FREDERICK, MD 20678 

C381) 855-6777 <30i.» 535- "142 



HAVE LEVEL II AND AN ASR-33 AS A PRINTER WITHOUT THE INTERFACE 
UNIT. WOULD LIKE TO EXCHANGE USEFUL PROGRAMS FOR SIMILAR TRS-80 
SYSTEMS. SOME OF MINE INCLUDEi 

THIS 'WORD PROCESSOR*. NO PROBLEMS INPUTTING TEXT AND GOING TO 
AND FROM TAPE WITH THE TEXTCIN SPITE OF NO 'LINE INPUT' FUNCTION 
AS AVAILABLE VITH DOS). 

A BASIC AND MACHINE LANGUAGE PROGRAM COMBINATION TO INPUT* DIS- 
PLAY* CHANGE AND COPY ANY MACHINE LANGUAGE PROGRAM. THIS IS NOT 
AN ORDINARY SYSTEM "COPY" PROGRAM. IT ALLOWS YOU TO SEE THE EN- 
TRY* START AND END ADDRESSES AS WELL AS SYNCBYTES* CHECKSUMS* 
ETC. I USED IT TO TAKE OUT THE RADIO SHACK PRINTER ROUTINE IN 
THE •EDITOR/ASSEMBLER' PROGRAM AND PUT IN MY OWN 'TTY* DRIVER. 
WRITEl LARRY SYLVIA PINE RIDGE ROAD LINCOLN*MASS. 01773 



MERVVN FRANKEL 
C/O VAZERSKV 
144-12 68 DRIVE 
FLUSHING- NV 11267 

IT WAS A PLEASURE TO SPERK WITH VOU ON THE PHONE 
VESTERDAV. I AM LOOKING FOR ANV PROGRAMS FOR THE TRS- 
80 THAT WOULD AID IN RUNNING ANV ASPECT OF FARM LIFE. 

IF VOU KNOW OF ANVONE DOING WORK IN THIS AREA 
PLEASE LET ME KNOW. 
MV PHONE # IS <203> 323-2683 



WILLIAM T. MVATT 
14721 CANDEDA PLACE 
TLISTIN, CA 92680 

THE TRS-80 USERS HAVE AN AMATEUR RADIO NET 
WHICH MEETS ON THE AIR EACH SUNDAV AT 1980 HRS 
GMT FOR ONE TO TWO HOURS. 

THE FREQUENCY IS 14. 342 MHZ AND IS COORDINATED 
THE WEST COAST BV MVSELF WA6VKH BILL, AND ON THE 
ERST COST BV WDSSAS ALSO BILL 

WE NOW HAVE 92 MEMBERS OF THE NET INCLUDING 
MEMBERS FROM MEXICO AND CANADA. 
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Included you Hnd a print-out tf - *«d'" M cation 

of r K e RSK 2 jo you cai use c n a-.:H:- >t-pr*nt< r wj- It. *!•« printer 

sV>uld have a 50 &«tw*rat< anil th« RS 212 ?. Is nf 'rrt. If yon 

think it's vorth to print; please do. 

Sincere |y , 

LBSCKNR DANIEl 
DWAF.SSTRAAT 10 
B 9690 KLHISBERGEN 
BEICIUM 

Thia Is tha ASCTT to BAUDOT conversion table. 

EBCOs 44 2C 05 44 44 44 44 05 OF 1 2 44 11 OC 03 1C ID 

EBDO: 16 PI' 01 CA 10 15 07 0* 18 OE OC OF IE 12 19 

EBEOt 44 23 39 2E 29 21 2D 3A 3'- 26 2B 2F 12 3C 2C 3« 

EPFO: 36 3? 2A 25 30 27 3E 33 3D 35 31 44 \U 44 '.4 00 

REM Bytes Ff)B? and Fflnfl are set at 02h. They are used 
a; an INITIALISATION - flag and STATUS - flag reap, 
(status-bit 5 - 1 if letter; status-hit 5 - if figure) 

The delay-routine FOAE - F0B6 is included to allow the 
carriage to stabilise. If the dash-pot in the printer 
is not to good the print-out can still be ok. 

PATCH FOR RSM 2 (48K? to print haudot code 
at 50 baud for TRS 80 with RS 232 C 



D FG50 FOBF 



F05C: 
FC60 : 
rC7C: 
F080: 
F09C: 
FOAC: 
FCtJC : 



F5 09 CU Dd FO D? n C? F5 3A D7 FO B7 23 OC Ar 

03 ca o? E9 zz ic \z ea fi fi cd 2d 32 



7 2 lit 

21 C'j 

9e fc 
re 3: 
er C9 

OC CP 



20 T6 3F 4F OC 00 09 7E 47 f: <*0 T2 

FC FO 20 BE 26 0" 77 C5 3E IF F2 93 

1P 4j CJ je> FO C1 O" r.( l. ' 77 2b Fa 78 D3 

CO 9b FO 3E 02 <♦/ CD 96 FO 1 00 

ri. cy C£ •£ CC OC 00 CO 00 00 00 



DO 
no 



Ob 

m 20 



FL^O 


: F5 




Pj°.i 


AF 


FCS1 


: D9 




FXX 




F052 


: CJ So 


FC 


CALL 


FC58 


FCJo 


: U9 




EXX 




F056 


: F1 




POP 


AF 


FC57 


: C9 




RET 




F058 


F5 




ru*?H 


AF 


FCS9 


3 a r»7 


FC 


LO 


A,(FGP7) 


F05C 


37 




OR 


A 


F050 


26 OC 




JR 


Z ,F06B 


FC^F 


AF 




XOR 


A 


FOoC 


3 2 B7 


re 


LD 


(F0B7),A 


F06J 


03 C8 




OUT 


E8 


roos 


D3 E9 




OUT 


E9 


FCL7 


ZZ 1C 




LL 


A, 1C 


F069 


J3 EA 




OUT 


EA 


F06F 


n 




POP 


AF 


FC6C 


FC CD 




CP 


00 


FC6E 


26 32 




JR 


2 ,F0A2 


FC7C 


21 CO 


EP. 


LO 


HL.rnco 


FC73 


36 20 




•Xfc 


20 


FC75 


E6 3F 




AND 


3F 


FC77 


hF 




LD 


C,A 


F078 


06 00 




LD 


B.00 


F07A 


09 




ADO 


HL.BC 
A,(HL) 


F07B 


7E. 




LD 


rofc 


47 




LU 


B,A 


F07C 


FE 40 




CP 


40 


F07F 


T2 98 


FC 


JP 


P ,F093 


F082 


21 RS 


FC 


LD 


HL,FCB8 


FC85 


£C 20 




KUZ 


20 


FC87 


BE 




CP 


(HL) 


F088 


26 OE 




vJR 


Z ,F098 


FC8A 


77 




LD 


(HL),A 


FCoE 


C5 




PL "-H 


BC 


FC8C 


zz ir 




LO 


A.1F 


K06C 


F2 93 


FO 


JT 


P ,F093 


F091 


3E 1B 




LD 


A, IB 


FC93 


47 




LD 


R,A 


F094 


CD 98 


FO 


CALL 


FC98 


FC97 


CI 




POP 


BC 


F098 


OB EA 




\V 


EA 


F09A 


CB 77 




BIT 


6.A 


F09C. 


26 FA 




JR 


Z ,F096 


F09F* 


78 




LD 


A,R 


F09F. 


03 EB 




OUT 


FB 


F0A1 


C9 




RET 




FCA2: 


3E Cb 




LC 


A, 08 


F0A4: 


47 




LD 


R,A 


FCA5: 


CI) 98 


FC 


CALL 


F098 


FCAfc: 


Jt* 2 




LD 


A , 'j l. 


FCAA: 


47 




Lu 


a, a 


FC AB : 


CO 93 


FO 


CALL 


F098 


FCAE: 


CI 00 


oC 


LO 


BC.80CC 


Fcr 1: 


CB 




Of c 


ec 


TCP 2: 


78 




LD 


A,P 


FOP 3 : 


R1 




or; 


c 


FOPA: 


20 FP 




JR 


N2 t rOM 


FCB6: 


C9 




r:t 




COMMA 


N3? 
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TRS-80 USERS GROUT 
755^ Southgate Rd. 
Fayetteville, N.C. 28304 

Dear Gordon, 

Was good to see my letter 1 , although it was written and 
mailed to you over a year ago, in the recent issue of newsletter. 

June 78, I received my Level II after a lot of flack sent 
to Pt. Worth. 

Since then I have purchased, in Jan 79, a IP- 125 PRINTER, 
from Integral Data Systems (KlniKicroft art) plus the P-1210 wCNTROL 
option and A-1052 TK3-80 INTELLIGENT I? 7 ABLE. 

Anyone purchasing this Pri.ter, I would suggest that they 
get the IP-225(has tractor feed) the I? catle and P-12^0 Graphics 
Option, which includes the P-1210 Option above. 

This unit is programmed from the keyboard or software. This 
includes 4 character sizes plus enhanced characters without reach- 
ing in the back to make any adjustment. The only drawback is that 
the paper comes out upsidedown, rather the top comes out first, but 
facing the machine, so one can stand in the rear to read or wait 
till the program is printed and torn off. A small inconvenience 
to pay for the saving of the initial investment. 

I also got an Expansion Interface, so to run the Printer and 
two cassettes, so now all that is needed is to learn how to run 
the whole mess. 

With regard to some subscribers having trouble with advertisers 
not supplying products ordered, I have recently mailes SASE's to 
a few advertisers for information about their products and have 
heard nothing, so that makes me feel that they would not deliver 
if I ordered from them, so I wont, and it makes one feel skeptical 
about ordering from anyone who advertises in the computer 
publications, doesnt it? 

Recently I had the Cassette Hod installed in my Keyboard and 
find a little difference in the CLOAC. To those who havnt had 
this Mod done, it's FKEE, take advantage, see your R/S dealer. 

Well thats all I have for now, I still would like to see less 
advertising and machine programs and more for the beginners. 

I received the latest issue of the Newsletter, 23 June 79, 
and thought it was never going to come till July. 



THANKS 



Jeffersonville, CH.43128 



< 



TRS-88 QUflLITV SOFTWARE 



LEVEL I. AND LEVEL II. 

•L IDH-I CASSETTE DATA BflSE 

•2. INV-I INVENTORY CONTROL 

•3. STOCK-I SECURITY INFO. 

•4 BRNK-I CHECK BALANCE 

f5 FINHNCE-I STOCK-I « BANK-I 



DISKETTE 

H2. HRIL-III NAILING LIST $35 

•14. HORD-III WORD PROCESSOR *35. 
•2L INV-I I I INVENTORY CONTROL *35 
•22. KEV-III KEY RANDOM ACCESS $15 

PRICE INCLUDES POSTAGE. CASSETTER * DOCU. 





LEVEL II 






$28. 


til 


HORD-I 


WORD PROCESSOR 


$25 


$26 


•15 


MRIL-I 


NANE AND ADDRESS 


$25 


$18 


•16. 


SORT- I 


SORT UTILITY 


$18 


$ie. 


#1? 


STAT- I 


STATISTICS 


$18 


$15. 


•18. 


KEY- 1 


KEY-ACCESS 


$18 




•19 


SALE- I 


SALE ANALYSIS 


$18 




•28 


UTIL-I 


SORT-I * KEV-I 


$16 



MICRO ARCHITECT 
96 DOTHAN ST 
ARLINGTON, MA 82174 



fl SUPER Med i urn priced line 



rr intci 



For those of you who have looked at the Radio Shack Line 
Printer arid wished your rich aunt would die arid leave you the 
money so you could afford 'Hard Copy, do not despair for- there 
is an alternative to this costly situation. I have found 
what I consider to be a better printer at Much less than half 
the cost of the Shack one. I am using the HEfiTHKIT H14 with my 
TRS-38 LEUEL II arid have had great success with it. 

Of course when you 3o Mixing up the equipment then all of 
a sudden no one wants to be of any assistance to you, neither 
the Shack or Heath. I'll admit I did have some interface pains 
at first but- not anymore. The main problem came from the soft- 
ware driver that cane With the RS232 Interface. Record ins to 
the oxrlaination that came with it* it supposedly had a test 
routine in the driver to handshake with the printer to see if 
it could accept more data but this routine was not there! 

fis a result it would not run More than 300 baud without 
losina characters. Also the Jumper they suaaested on the DB25 
cable did not work. The only other- problem was the fact that 
it would print right across the perforations of the fanfold 
paper. No Provision existed for- a line counter arid form feed 
control. This was taken care of by add ins a subroutine to the 
software driver as well as another subroutine for the Haridshake 
operation and now it is runnina at 9600 baud arid form feeds 
like it should. The number of lines F-er- paae is set durina the 
initial load of the driver at 50.. but. this can be changed by 
two PGKEs from BflSIC or from DEBUG by changing the two HEX 
locations that set arid store the line count. 

The maximum instantaneous print rate is 165 CPS 
arid sustained thouahput is around 128-135CPS- fls you can see 
it is FAST and is also a very simple kit to build for those of 
•you who would be interested in savina the construction costs. 
It should also be obvious that it has the full 96 CHR ASCII set 
arid if you have made the lower case mod as published many times 
in most of the Newsletters., it prints lowercase. 

Other advantages over the Shack Printer include the fact 
that it is much smaller and liahter arid comes standard with 
tractor feed with an adjustable ranae of 2 1^2 to 9 W2 inches 
so label printing is also supported. 

This printer works well with or without DISK but does re-Tuire 
LEUEL II , EXPANSION INTERFACE AND RS-232 INTERFACE installed. 
The driver routine occupies less than 128 bytes arid can be located 
at the top so that the available memory is not appreciably affected. 
I have patches for all three levels of memory, 16K - 32K - -18k arid 
source listings too. I have spent many hours in the resolution of 
this interface problem and feel that I should receiver something for 
my efforts arid loss of hair < pulled out). I am makinathese patches 
available to those who May desire to adapt the HEATH HI 4 to their 
E-ysteM for a very nominal fee. 

ASSEMBLY LISTING ONLV * 5. 88 
LIST. & OBJ CODE ON TAPE $19.00 
LIST. & OBJ CODE ON DISK $15.80 

I can be contacted by PHONE 919— 136-J?31 after 5 PM or by 

writ ma to CUM ROBERT C. MONK* 113 LUZON DR. FT. BRAGG, N.C. 28387 

73 "s and harpy printing.. Bob Monk UrVlGIU. 
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Joe W, Rocke 224 W. lienson 

Ridgocrest, CA 
93555 

June 10, 1979 
TRS-80 Users Group 
755*1 Southgate Rd., 
Fayetteville, SC 23304 

Mr. Lloyd: 

The following Level I 4K two-part program was written to 
provide a cassette data file record and related search/display 
capability for a magazine article index. The simplicity of the 
program belies its convenience as a record keeping/recall tool. 

The program was prepared in two parts for use in a **K system. 
Part I is used to create the data file for the cassette recoru. 
Part II is usea for data search and recall. The program can Le 
easily adapted to most any type of record keeping/recall task 
that lends Itself to coding of subject material. The amount of 
data that can be filed at one time is limited only by memory size. 

The program presented here was written to accomodate 99 line 
entries of 4 items per line. It can be expanded in proportion 
to the memory availabe by changing the values in the FOR U loop, 
and increasing the number of entries per line. 

Part I - Data Input & File: The data input are by numerical 
code for subject and magazine identification whereas page number 
and magazine date are by the applicable numerals. Subject/magazine 
code numbers are to be assigned by the user. The aate is entered 
using a decimal to separate the month and year (this method was 
used to simplify the program and save memory space). The four 
data input elements are entered on a single line under the appro- 
priate head as opposed to using an XX, XX, XX, XX type input. This 
is made possible by the PRINT AT G statement preceding the 
INPUT command. Part I is used only to create and record the data 
file*, it is not used for data recall. 

Part II - Data Search & Display: This program is used for 
reading £he data file into memory for subsequent data retrieval 
and display. Once the data is read into memory, the file can 
be searched by subject and magazine, or by subject alone. Upon 
entering subject and magazine code, TRS-oO will search the file 
and display only issues carrying articles on the particular 
subject plus the respective page number and magazine date. 
Entering subject code and results In a display of all magazines 
with the related subject articles plus page number and date. 
The search mode may be easily modified to other search combinations 
as may be convenient to the user. 

Standard Level I BASIC abbreviations are usea in the program 
presented. You are free to use the program at your discretion. 

As a newcomer to the TRS-80 group, I find your publication 
most useful. I note the trend is toward Level II; while I do 
not like the idea of giving up the simplicity of Level I language, 
ijL seems that the step up to Level II will be inevitable. 




e W. Rocke 



A(N) = SUBJECT CODE 
A(N+100) - MAGAZINE CODE 
ACN+200) = MAGAZINE PAGE 
A(N+300) = MAGAZINE DATE 



IP. 



PART I - DATA INPUT & FILE 
VARIABLES USED; 

D - INPUT ITEM COUNT 

G = INPUT PRINT AT LOCATION 

N = INPUT/OUTPUT LOOP 

B$ ■ INPUT RETURN 

X = INPUT DECISION 
5 CLS: P.T.Q5)/.., DATA FILE INPUT 
10 P. "SUBJECT CODES ARE AS FOLLOWS:" 

20 p,"l = xxxxV'2 = xxxx'V'3 = xxxxV4 = xxxx" 

rem,.. line 20 is example only. substitute subject name for x's. 

use numerals 1 to 9 for subject code. 
30 p. "magazine code is as follows:" 
40 p. "11 - xxx w ,"22 = xxxxV'33 - xxxxV44 = xxxx" 
rem... line 40 is example only. substitute magazine name for x's. 
Identification of codes here is for convenience only and may 
be excluded from program if reference list is kept at hand 
during the input cycle. 

GOS.1000 

D = 2: G = 64 



50 
60 
70 



90 
92 



F. N = 1 TO 99 

p. at g;:in.a(n): g = g+16: P. AT G; :in.a(n+100) :g ■ G+16: 
P. at G; : in.a(n+200) :g ■ g+16:p.at g; : IN.a(n+300) :g = G+17 

REM. . .INCREMENTING G CAUSES ALL 4 INPUTS TO BE PRINTED ON ONE 
LINE BENEATH THE HEADS. THE LAST INCREMENT CAUSES Kb 1 URN 
TO THE NEXT LINE. 

100 IF a(n) = % G. 130 

110 D = D + 1 

120 N.N 

130 gos. 1000 

140 in. "type 1 70 review input, otherwise 0";x 

150 IF X = G. 200 

115 if g>= 960 t. g = 64 
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160 cls: p. "subject" /"magazine" /"PAGE no. "/"date" 

170 F.N = 1 TO D 

180 p.a(n)/ a(n+100),a(n+200),a(n+300) : N.N 

REM,.. NO PROVISION HAS BEEN INCLUDED HERE TO PREVENT SCROLLING 

OF DISPLAY - ADDITION OF A 13 LINE DISPLAY STOP IS OPTIONAL, 
190 GOS. 1000 

200 cls: p. "load a data tape":p. 

210 p. "set recorder to record mode": gos. 1000 

300 p. "writing data file tape" 

310 F. N = 1 TO D 

320 print H d;"/";a(n);"/";a(n+100);"/";a(n+200);"/";a(n+300) 

330 n.n 

340 p. "data file complete": p. 

350 p. "mark data file for identification": p. 

360 p."cload part ii for data search/display" 

370 END 

1000 in. "press enter to continue"; b$ 
1010 cls: ret. 

PART II - DATA SEARCH & RETRIEVAL 

variables used: 
see part i 

b = subject code search input 
c = magazine code search input 

A$*= DATA 

5 cls:p.t.(15)/". . . data dump ...": p. 

10 P. "load data file file cassette": p. 

15 P. "set recorder to cload mode": GOS. 1000 

20 cls: p. "reading data file": p. 

25 in. U d 

30 F. N ■ 1 TO D 

35 in. H a(n), a(n+100), a(n+200)/ a(n+300) 

40 n.n 

45 p. "data dump completed": gos.1000 



50 P.T.U5)/". . . article search . . .": p. 
60 P. "subjects are filed by the following code numbers:" 
70 f.n = 1 to 4*: read a$: p.n;" ";a$: n.n: p. 
rem. . .the 4* number in the for n loop must equal the number of data items. 
...addition of a read/print loop for magazine code display is optional, 

80 IN. "TYPE SUBJECT CODE AND MAGAZINE CODE (OR 0) AS #,# "i B/C 

90 GOS. 200 

100 F. N = 1 TO D 

HO RESTORE 

]20 if (a(n) = b) * (a(n+100) ■ c) gos. 300 
140 if (a(n) - b) # (c - 0) gos. 300 . 

REM... LINES 120 AND 140 ALLOW SEARCH TO BE MADE BY SUBJECT AND 

MAGAZINE/ OR BY SUBJECT ONLY. 
150 N.N 

160 p.at960;: in. "type 1 to repeat otherwise 0"; x 
170 if x = 1 g. 50 

190 D. SUBJECT 1/ SUBJECT 2/ SUBJECT 3/ SUBJECT 4 

REM... SUBSTITUTE SUBJECT NAMES FOR ABOVE/ IN ACCORDANCE WITH 

SUBJECT CODE. TOTAL NUMBER OF NAMES MUST EQUAL NUMBER 

IN LINE 70 FOR N LOOP. 

199 END 

200 cls: p."subjectV'magazine"/"page no. "/"date (m.yr)" : RET. 

300 F. T = 1 TO 4 # 

REM. ..NUMBER 4* MUST EQUAL NUMBER OF LINE 190 DATA ITEMS 

310 read a$ : IF T ■ a(n) T. 320 

315 N.T 

320 if a(n+100) = 11 p. a$/"magazine 11"/ a(n+200)/a(n+300) 
330 if a(n+100) = 22 p. a$/"magazine 22"/ a(n+200)/A(n+300) 
rem... lines 320/330 are typical of programming at this point. 

...add as many lines are necessary for magazine codes filed. 

.. .substitute magazine names (up to 16 letters) for 
390 ret. "magazine 11" /etc. 

1000 p.at960; : in. "press enter to continue"; b$ 

1010 CLS : RET. 
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C. W. Evans 
9806 Amber Trail 
Sun City. AZ 85351 
(602) 933-1616 



July 18. 1979 



Mr. R. Gordon Lloyd, Editor 
TRS-80 Users Group Newsletter 
7554 Southgate Road 
Fayetteville, NC 28304 

Dear Mr. Lloyd; 

I need help. I am frustrated in trying to rewrite 
Ted Lau's Superbagels (Page 39) in Level II. I would 
write him directly but his address is incomplete. It 
looked like an easy job and I chose Level II because of 
the ease of editing. I want to compare his program with 
my own for Mastermind, Digits, and Comp IV. 



Line 490 of his program has an obvious error, 
ends with GOTO 4400 which might be 400 or 440. 



It 



I inserted DIM A (100) in a new line but still get 
a BS error in Line 300. I can't get past this point in 
the program. 

I inclose a check for $5 made out to Ted Lau. Would 
you please send this to him along with the copy of this 
letter and ask him to send me a tape with a working version 
of his program, in Level II if he has it, otherwise in 

Level I. 

I also inclose a cassette with my current interpretation 
of a Level II version of the Lau Superbagels program. 
As I said, this program does not work in this form and I 
don't know how to make it work. 

Also on this tape are copies of my similar programs: 
Mastermind, Digits, and Comp IV in level II. You may 
publish them if you wish. I have Level I versions of 
Mastermind and Comp IV I can furnish on request. 

If you oan help me get workable programs of this in 
both Level I and Level II, I would reproduce this and my 
own programs on my Data Dubber for your members at cost 
($2 for either level or both, except digits not in Level I). 

Yours very truly, 



£i/V*Ci**^~ 



16 REM C. W. EVANS, <602> 933-1616 

20 REM 980b AMBER TRAIL, SUN CI TV, AZ 85251 

20 'VERSION OF 7/18/1979 

40 'FOR ACTUAL — GOTO 4Q0 

50 REM MASTERMIND OR SUPER MASTERMIND 

70 DIMA<30> 

80 S=5:V=8:R=1 

90 CLS:P»1 

100 PRINT" SUBPROGRAMS:" 

110 PR I NT "1. DESCRIPTION—CHOOSE MASTERMINO OR SUPERMASTERMIND" 

120 PR I NT "2. REGULAR GAME 

130 PR I NT "3. TABLE— FIXED OPENING" 

140 PR I NT "4. TEST GAME 

158 PR I NT "5. TEST AND TABLE" 

160 PRINT: INPUT "CHOOSE SUBPROGRAM NUMBER "; L 

170 ON L GOTO 770 , 410 , 530 . 620 , 640 

180 GOTO 160 

190 X«0.FOR Q»l TO S 

200 IF A<Q> O A(G+10> THEN 220 

210 X»X+1 

228 NEXT 

238 T«0 

248 F0RI-1TOS 

250 F0R0=1T0S 

260 IFA<I>OA<O+10>THEN 380 

270 T-T+l 

280 A<O+10)«10 

298 GOTO 310 

30O NEXTO 

310 NEXT I 

320 0=T-X 

330 IFPOITHEN 370 

340 IFS=4PRINT"N0. A B C D BK. WH. " : GOTO 360 

250 PRINT "NO. A B C D E BK. WH 

360 PRINT" H 

370 IFS-4PRINTP; " - "l A<21>; A<22>> A<23>; A<24>; " - "; : RETURN 

388 PRINTP; M - ";A<21>>A<22>;A<23>; A<24>> A<25>; " - m i 

390 RETURN 

400 PRINT"ACTUAL IS - "i : F0RI-1T0S: PRINTA< I >> ; NEXT I: END 

410 CLS: PR I NT "PROGRAM 2— REGULAR GAME" 

420 PRINT 

430 PRINT "BLACK MATCHES NUMBER AND POSITION" 

440 PR I NT "WHITE MATCHES NUMBER BUT NOT POSITION — "; 

450 F0RI=1T0S:A<I>-RND<V>:NEXTI 

460 PRINTTAB<39>; "TRIAL »l :W=10: GOSUB 666 

470 GOSUB 198 :PRINTX;0; 

488 IFX-SGOTO 500 

490 p=p+l:G0T0 460 

508 PRINTTAB<32>> "FOUND "; A*; " IN "l P# ■ TRIALS 

510 P=l 

520 PRINT :INPUT"T0 PLAV SAME GAME— HIT ENTER"; A* GOTO 170 

530 CLS: PR I NT "PROGRAM 3— TABLE/FIXED OPENING" P=l 

540 W*18 

550 FORI=lTOS:A<I>=RND i ::V) : NEXT I 

560 DATA12345, 23456, 34567, 45678 

570 RESTORE 

530 PRINT 

590 F0RZ=1T0S-1 : READN GOSUB 710 : GOSUB 190 : IFX=SG0T0 500 
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ENTER TEST", 



FOR SUPER-: GOTO 660 



608 PRINTX;0:P«P+1:IFZ=S-1THEN 460 

619 NEXT 

620 CLS :P«1: PR INT "PROGRAM 4 — TEST GAME ENTER TEST", 

630 U-0:G0SU8 660 GOTO 460 

640 CLS :P=1 PR I NT "PROGRAM 5 — TEST GAME/TABLE 

650 W-0GOSUB 660 :W=10:GOTO 570 

660 INPUTN 

€>?Z IFN>99999/RTHEN 700 

680 IFN<10008/RTHEN 700 

690 GOTO 710 

708 PRINT-4 DIGITS FOR MASTERMIND, 

710 IFN<10000THENN-N*R 

720 R<W+1>»INT<N/10080> :N»N-A<W+1)*1000O 

730 A<W+2>=INT<N/10O0) : N»N-A<W+2)*1000 

740 A<W+3>-INT<N/100> :N»N-A<W+3>*100 

750 A<W+4)»INT<N/10> :A<W+5)-N-A<W+4>*10 

760 F0RI-1T0S : RC20+I >»A<10+I > : NEXTI : RETURN 

770 PRINT" THIS PROGRAM PLRVS MASTERMIND WITH 6 DIGITS AND 

780 PRINT"4 POSITIONS OR SUPERMASTERMIND WITH 8 DIGITS AND 

798 PRINT-5 POSITIONS 

800 PRINT" TVPE 4 TO PLflV MASTERMIND OR 

810 INPUT "SUPERMASTERMIND, THEN PRESS ENTER 

820 CLS 

830 IFS-3V«8:R«i:R*- H A B C D E":GOT0 900 

840 IFS»4V"6:R-10:A** H ABC D M :GOT0 860 

850 GOTO 800 

860 PRINT" MASTERMIND—THIS PROGRAM RANDOMLY SELECTS 

870 PRINT"4 DIGITS FROM 1 TO 6 AND THEN COMPARES 4 TRIAL DIGITS 

680 GOTO 920 

890 CLS 

900 PRINT" SUPERMASTERMIND — THIS PROGRAM RANDOMLY SELECTS 

910 PRINT-5 DIGITS FROM 1 TO 8 AND THEN COMPARES 5 TRIAL DIGITS 

920 PR I NT "SELECTED BY THE PLAYER WITH THE UNKNOWN DIGITS. IT 

930 PRINT "DISPLAYS THE NUMBER OF DIGIT MATCHES IN THE RIGHT 

948 PR INT "POSIT I ON AND THE NUMBER OF MATCHES IN THE WRONG 

950 PRINT"POSITINKEY$?N IN EACHTAN7UCCESSIVE TRIAL UNTIL ALL DIGITS 

960 PRINT- IN THE TRIAL MATCH ALL DIGITS IN THE UNKNOWN 

970 PRINT. INPUT"HIT ENTER WHEN READY "i : GOTO 90 



TO PLAY 
";S 



***** THE NEWSLETTER IS IN TROUBLE ***** 



WE NEED PROGRAMS AND ARTICLES OF ANY KIND. 
WE ARE NOW MORE THEN 60 DAYS BEHIND WITH 
THE NEWSLETTER. PLEASE HELP US GET UP TO 
DATE. SEND IN ANY PROGRAMS OR ARTICLES 
VOU HAVE WE WILL BE GLAD TO PRINT THEM 
IN THE NEWSLETTER. IF YOU COULD SENT ANY 
PROGRAMS ON TAPE IT WILL MAKE THEN EASIER 
FOR US TO PUT IN THE NEWSLETTER. WE WILL 
MAKE A HARD COPY THe RIGHT SIZE FROM YOUR 
TAPE 
YOUR EDITOR: R. GORDON LLOYD 



'3/14/79, 11 AM 

'GOTO 196 FOR ACTUAL 

'NODIFICITATIOH OF LOGIC PROGRAM— CLOAD-- MARCH 1978 

'DIGITS BY C. W. EVANS, (682) 923-1616 

9896 AMBER TRAIL, SUN CITV, AZ 85351 



CD IS 



10 

29 
28 
48 
58 
66 ' 

76 DIMA<58) 
88 E«8:O-6:D-0:CLS 
98 

106 PRINT-ACTUAL A B 
118 END 

126 PRINT'HELCOME TO THE GAME OF D I G I 

A SIMULATION OF A COMPUTER GAME BY COLECO" 
136 INPUT-MOULD YOU LIKE INSTRUCTIONS? <Y/N) 
148 IF J*-"N" THEN 31to 
156 CLS 

166 ' INSTRUCTIONS 

178 PRINT-THIS GAME IS MUCH LIKE THE GAME OF MASTERMIND WITH THE 
188 PRINT "FOLLOWING EXCEPTIONS:" 

196 PRINT-1) THE GAME OF DIGITS USES NUMBERS, NOT COLORS 
206 PRINT"2) THE PLAYER MAY SELECT THE HIGHEST DIGIT NUMBER" 



GOTO 126 

', A<21); A<22); A<23); A<24) 



T S , 

PRINT 

"; J$ 



HE WISHES THE COMPUTER TO USE FOR EXAMPLE; IF THE NUMBER 
IS 3 THE COMPUTER MIGHT SELECT 1332 OR 1212, BUT NOT 1334. ' 
A BEGINNER MIGHT SELECT 2, 3, OR 4. ADVANCED PLAYERS" 
SELECT 6 OR HIGHER (9 IS THE HIGHEST). 



218 PRINT" 

226 PRINT" 

238 PRINT" 

246 PRINT" 

256 PRINT 

266 PRINT"3) THIS GAME USES BK. TO LABEL THE DIGITS THAT ARE 

276 PRINT" CORRECT AND IN THE CORRECT PLACES. IT USES MR TO LABEL 

266 PRINT" THE DIGITS THAT ARE CORRECT BUT IN THE WRONG PLACE " 

296 PRINT 

366 INPUT'HIT ENTER WHEN READY. "; A$ 

316 as : PRINT: PRINT: PRINT 

326 PRINT"THE OBJECT OF THE GAME IS TO EXACTLV MATCH THE COMPUTER'S" 

336 PRINT'FOUR DIGIT NUMBER WITH YOUR FOUR DIGIT NUMBER IN THE LEAST" 

346 PRINT"NUMBER OF TRIES, WHICH IS RECORDED FOR YOU BEST OF LUCK. " 

358 PRINTPRINT 

368 PRINT'MHAT IS THE HIGHEST DIGIT VOU HANT THE COMPUTER TO PICK? 

378 PR I NT "REMEMBER THE NUMBER MUST BE BETMEEN 1 AND 9. NUMBER PLS ". 

386 INPUT V: IF V«0 OR V > 9 PRINT:O0T0 376 

396 V-V+l: PRINT 

486 PRINT'THE COMPUTER MILL NOW PICK FOUR DIGITS AT RANDOM. " 

416 R-8: PRINT 

426 FOR I -21 TO 24 

438 A<I)«RMXV>-1 

446 NEXT I 

450 PRINT"PICK FOUR DIGITS YOU THINK HILL MATCH THE COMPUTER'S "j 

466 INPUT M 

476 IF K>9999 PRINT"4-DIGITS ONLV PLS"> : GOTO 466 

486 A<25)«INT(M/ie68) / INSERT COMMAS 

496 A<26)»INT<<M-fl<25)*1660)/iee) 

506 A(27)«INT(<M-<A<25)*ie00)-<A(26)*108>>/ie) 

518 A(28)-M-(A<25)*ie08)-<A<26>*iee)-(A<27)*18) 

526 R»R*1 

536 D-0 'D*8LACK" 

540 REM COMPUTE BLACK 

556 FOR 1-21 TO 24 

566 IF A<I) * A<I+4> THEN D*0*1 

578 NEXT I 

588 REM COMPUTE WHITE 
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599 E-8' E=HHITE 

688 FOR 1=25 TO 28 

£18 R<I+4)»fl(I> 

628 NEXT I 

638 FOR 1=21 TO 24 

648 FOR 0=29 TO 32 

658 IFA<I)OA<Q)THEN 698 

668 E-E+l 

678 A<Q>=19 

688 GOTO 788 

698 NEXTQ 

788 NEXTI 

718 E-E-0 

728 IF D-4 THEN 778 

738 IF 0-42 THEN 778 

748 CLS 

758 PRINT'NO. fl B C D BK. HH " 

768 PRINT " — 



778 PRINT Ri" - "; A<25>; A(26>; A<27>; A<28>; " 
788 PRINT D; £i 



, 



IF D-4 THEN 848 
NEXT TRIAL ";H 

IF H>9999 PRINT'4-OIGITS ONLY PLS"; :00T0 888 

FLflG 
GOTO 488 
FOUND IN ";R>" TRIALS" 



798 

888 INPUT 

818 

828 0=42' 

838 

848 PRINT 

858 PRINT 

868 INPUT-HIT ENTER HHEN READY"; A* 

878 D-8:E-8:0-8:CLS: 



GOTO 428 



BASIC BUG 

A 12— command machine language debuging program, 
written in Basic so it is easy to add and delete 
commands. Functions in decimal as well as hex. 

Basic Bug — $12.95 SOFTWARE ORIGINALE 

Decimal Opcode Chart — $5.95 Eox 63 

Both — $15.95 Holdrege, NE 68949 



* * *< * * 



MOVIE-HANGMAN 



He********************* 

* TRS-80 LEVEL II 16K NEW PRODUCTS 

* FIGHTER SUBMARINE BOWLING BASEBALL 

* HORSE-RACE 

*: 
* 



HORSE- JUMPING TRIVIA 

SEND S A S E 
APPLICATIONS UNLIMITED 

P. O. BOX 35743 
PHOENIX ARIZONA 85021 






18 REM COHP IV VERSION OF 7/18/79 

28 REM C. M. EVANS, <682) 933-1616 

38 REH 9886 RMBER TRAIL, SUN CITY, AZ. 85351 

48 'FOR ACTUAL GOTO 488 

188 DIM A(38> 
118 S»5:R«1 
128 P-1:CLS 
138 PRINT" 
148 PRINT"! 
158 PRINT'Z 
168 PRINT"3 
178 PRINT"4. 
198 PRINT'S. 



COHP IV— SUBPROGRAMS: 

DESCRIPTION—CHOOSE 3, 4, OR 5 PLACES 

REGULAR GAME 

TABLE—FIXED OPENING" 

TEST GAME 

TEST AND TABLE" 
198 PRINT: INPUT-CHOOSE SUBPROGRAM NUMBER M 

288 0NLG0T0 868 , 418 , 578 , 698 , 728 
218 GOTO 198 
228 X«e:F0RQ*lT0S 
238 IFA<Q)«A<Q*i8)X»X*l 
248 NEXT 
258 T-8 
268 F0R0-1T0S 
278 F0RI-1T05 

288 IFA<I>«A<0+10)T»T+i:GOTO 398 
299 NEXTI 
398 NEXTO 
318 IFP>1THEN 368 
328 IFS-3PRINT' I ABC 
338 IFS-4PRINT" • A B C D 
348 PRINT " • A B C D E 
358 PRINT" 



NR. SQ. ":G0T0 358 
NR SO. "GOTO 358 
NR SO. 



368 IFS-4PRINTP; " - ";A<2i>;A<22>;A<23>; A<24>; " - ";: RETURN 

378 IFS-3PRINTP; " - •; A<21)i A<22)i A<23); ■ - "; RETURN 

388 PRINTPi" - ";A<2i);A<22>;A<23>;A<24>;A<25>;" - "; 

398 RETURN 

488 PRINT"ACTUAL IS - "; :F0RI-1T0S:PRINTA<I>; : NEXTI: END 

418 CLS:PRINT"PROGRAM 2, COMP IV, ";Si" PLACES ■ 

428 PRINT 

438 PRINT-NR "NUMBER OF 'IN' DIGITS 

448 PRINT'SQ. -NUMBER OF DIGITS IN PROPER SEQUENCE 

458 F0RI-1T0S 

468 A(I)«RND<18)-1 

478 F0RJ-lT0I:IFA<I)-A<I-J)GOT0 468 

488 NEXTJ 

498 NEXTI 

598 PRINTTAB< 39); "TRIAL "; :H-i8:G0SUB 758 

518 GOSUB 228 PRINTT, X, 

528 IFX-SGOTO 548 

538 P-P+1G0T0 588 

548 PRINTTAB<32>; "FOUND ";A$;" IN ";P;- TRIALS" 

558 P-l. RESTORE: PRINT 

568 INPUT"T0 PLAY SAME GAME AGAIN— HIT ENTER ";A»:G0T0 288 

578 CLS:PRINT"COMP IV PROGRAM 3— FIXED OPENING, "; S; " PLACES. ":P-1 

588 PRINT :M-18 

598 F0RI-1T0S 

689 fl(I)=RND(18)-l 

618 F0RJ-1T0I:IFA<I)»A<I-J)G0T0 688 

628 NEXTJ 

638 NEXTI 
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IFX«SGOTO 548 



4— TEST ";S;" PLACES" :P»1 



648 DATA11222, 33444, 55666, 77888 
658 FORZ»1T04:READN:GOSUB 888 GOSUB 228 
668 PRINTT;X:P-P+1 
678 IFZ-4GOTO 588 
688 NEXTZ 

698 CLS:PRINT"COMP IV PROGRAM 
788 PRINT" ENTER TEST "; 
718 M-8:G0SUB 758 GOTO 588 

728 CLS:P«i:PRINT"COMP IV PROGRAM 5— TEST AND TABLE"; S; " PLACES 
738 PRINT" ENTER TEST "; 
748 H-8:G0SUB 758 : M-18 : G0T0458 
758 INPUTN 

768 IF N>99999/RG0T0 798 
778 N*N*R 
788 GOTO 888 

798 PRINTS; "DIGITS PLEASE": GOTO 758 
888 REN 

818 A<M+l)«INT(N/1888e):N*N-A<H+l>*18888 
828 A<M+2)>INT<N/1888):N>N-A<W+2)*1888 
838 A<H+3>«INT<N/188>:N»N-A<M+3>*188 
848 A(M*4)»INT(N/i8):A(M+5>»N-A(M*4>*ie 
858 F0RI«lT0S:A(28*I)«A(ie+I):NEXTI:RETURN 
868 aS : PRINT: PRINT 

878 PRINT"! THIS PROGRAM SIHULATES HILTON BRADLEY'S COHP IV 
888 PRINT" SOLVE THE NUMBER THE COMPUTER HAS IN ITS MEMORY 
898 PRINTS NO DIGIT HILL BE REPEATED. 
988 PRINT"! DIGITS RANGE FROM 8 TO 9. 
918 PRINT"4. PROGRAM PLAYS 3, 4, OR 5 DIGITS AS ORDERED 
928 PRINT-5. AFTER PLAYER ENTERS GUESS, COMPUTER DISPLAYS: 
938 PRINT" A) NUMBER OF CORRECT DIGITS (TOTAL). 
948 PRINT" B> NUMBER OF DIGITS IN SEQUENCE (RIGHT POSITION). 
958 PRINT 

968 INPUT-HIT ENTER TO CONTINUE. ";A« 
978 CLS: PRINT: PRINT 

988 PRINT"6. IF A DIGIT IS DUPLICflTED IN GUESS, COMPUTER SCORES FOR EACH 
TIME IT IS ENTERED; THUS IF 1 IS IN, 11111 MOULD SCORE 5-1 

IF 1 AND 2 ARE BOTH IN, 11222 MOULD SCORE 5-8, 5-1, OR 5-2 

DEPENDING ON LOCATION OF 1 AND 2 IN THE UNKNOHN. 

THIS IS HELPFUL IN ONE STRATEGY. 

THE OBJECT OF THE GAME IS TO FIND THE UNKNOHN IN THE 

LEAST NUMBER OF TRIALS. 

PAR IS 8 TRIALS FOR A 5-DIGIT GAME 



998 PRINT" 

1888 PRINT"? 

1818 PRINT" 

1828 PRINT" 

1838 PRINT"8 

1848 PRINT" 

1858 PRINT-9. 

1868 PRINT: PRINT 

1878 INPUT-DO YOU MANT TO PLAY 3,4, 

1888 IFS»3R"188:A$='A B C" 

1898 IFS»4A*»"A B C D":R*18 

1188 IFS*5A$*"A B C D E":R»1 

1118 IFS>5GOTO 1878 

1128 GOTO 128 



OR 5 DIGITS"; S 



COMP IV— SUBPROGRAMS: 

1. DESCRIPTION—CHOOSE 3, 4, OR 5 PLACES 

2. REGULAR GAME 

3. TABLE—FIXED OPENING 

4. TEST GAME 

5. TEST AND TABLE 



CHOOSE SUBPROGRAM NUMBER 



? 2. 



PROGRAM 2, COMP IV, 5 PLACES. 



NR. -NUMBER OF 'IN' DIGITS 

SQ. »NUMBER OF DIGITS IN PROPER SEQUENCE. 



















TRIAL ? 11111 


• 


A 


B 


C 


D 


E 


NR. 


sa 




1 - 


1 


1 


1 


1 


1 


- 8 


e 


TRIAL ? 22222 


2 - 


2 


2 


2 


2 


2 


- 5 


1 


TRIAL ? 21111 


3 - 


2 


1 


1 


1 


1 


- 1 





TRIAL ? 12111 


4 - 


1 


2 


1 


1 


1 


- 1 


8 


TRIAL ? 11211 


5 - 


1 


1 


2 


1 


1 


- 1 


e 


TRIAL ? 11121 


6 - 


1 


1 


1 


2 


1 


- 1 





TRIAL ? 11112 


7 - 


1 


1 


1 


1 


2 


- 1 


1 


TRIAL ? 33332 


8 - 


3 


3 


3 


3 


2 


- 1 


1 


TRIAL ? 44442 


9 - 


4 


4 


4 


4 


2 


- 5 


2 


TRIAL ? 41112 


18 


- 4 


1 


1 


1 


2 


- 2 


1 


TRIAL ? 14112 


11 


- 1 


4 


1 


1 


2 


- 2 


1 


TRIAL ? 11412 


12 


- 1 


1 


4 


1 


2 


- 2 


2 


TRIAL ? 55452 


13 


- 5 


5 


4 


5 


2 


- 5 


3 


TRIAL ? 51412 


14 


- 5 


1 


4 


1 


2 


- 3 


2 


TRIAL ? 15412 


15 


- 1 


5 


4 


1 


2 


- 3 


2 


TRIAL ? 11452 


16 


- 1 


1 


4 


5 


2 


- 3 


3 


TRIAL ? 66452 


17 


- 6 


6 


4 


5 


2 


- 3 


3 


TRIAL ? 77452 


18 


- 7 


7 


4 


5 


2 


- 5 


4 


TRIAL ? 71452 


19 


- 7 


1 


4 


5 


2 


- 4 


3 


TRIAL ? 87452 


28 


- 8 


7 


4 


5 


2 


- 5 


5 FOUND 


IN 28 TRIALS 



TO PLAY SAME GAME AGAIN— HIT ENTER. ? _ 
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